# name : list2data.frame, unlist a data.frame to a data.frame, using lappy
# key : list2dataframe_lapply
# contributor : Shuguang Sun
# --
list2df <- function(l) {
  ret <- as.data.frame(unlist(l))
  names(ret) = names(l)
  ret
}

${2:out} <- as.data.frame(do.call(cbind, lapply(as.data.frame(${1:in}), list2df)))
